Private Function TossACoin() As Integer
  ' Przeznaczenie: symulacja rzutu monet. Funkcja zwraca warto 1
  '      w przypadku wyrzucenia ora oraz warto 0 w przypadku wyrzucenia 
  '      reszki.
  '
  ' Parametry
  '
  ' Zwracana warto
  '  integer    1 w przypadku ora, 0 w przypadku reszki
  '
  TossACoin = Int(2 * Rnd())
End Function
